Tbbs 2.3-16/Disk 2/SAMPDATA/REGISTER.QAL

Q&A: Register
Label: Again
Set: A = %PHONE%
Set: B = %ADDR1%
Set: C = %ADDR2%
Set: D = %CITY%
Set: E = %STATE%
Set: F = %ZIP%
Set: H = %COUNTRY%
Clear:
Show: ""
Show: "As you're a new user to our system, we would like to know a little more"
Show: "about you.  Please provide the following information for our records:"
Show: "~"
Show: ""
Block: ANSI UPDATE
  Get: "Voice Phone Number: ~" TYPE=STRING LENGTH=18 VAR=A
  Show: ""
  Get: "    Address Line 1: ~" TYPE=STRING LENGTH=40 VAR=B
  Get: "    Address Line 2: ~" TYPE=STRING LENGTH=40 VAR=C
  Get: "City/Province Name: ~" TYPE=STRING LENGTH=20 VAR=D
  Get: "        State Name: ~" TYPE=STRING LENGTH=20 VAR=E
  Get: "   Zip/Postal Code: ~" TYPE=STRING LENGTH=10 VAR=F
  Show: ""
  Get: "        Birth Date: ~" TYPE=DATE VAR=H
  Show: ""
EndBlock:
Clear:
Show: ""
Show: "Information Collected:"
Show: ""
Show: "Voice Phone Number: %A%"
Show: ""
Show: "    Address Line 1: %B%"
Show: "    Address Line 2: %C%"
Show: "City/Province Name: %D%"
Show: "        State Name: %E%"
Show: "   Zip/Postal Code: %F%"
Show: ""
Show: "        Birth Date: %H%"
Show: ""
Get: "Is this information correct (Y/N/Q)? ~" TYPE=HOTKEY VALID="YNQynq" VAR=Z
IfCase: %Z% = "N"
  Goto: Again
Else:
  IfCase: %Z% = "Q"
    Quit:
  Endif:
EndIf:
Change: PHONE = "%A%" ADDR1 = "%B%" ADDR2 = "%C%" CITY = "%D%" STATE = "%E%"
Change: ZIP = "%F%" COUNTRY = "%H%"
PutSvy:
------------------------------------------------------------------------------
%NAME% answered registration questionnaire on %DATE% at %TIME%

Voice Phone Number: %A%
    Address Line 1: %B%
    Address Line 2: %C%
City/Province Name: %D%
        State Name: %E%
   Zip/Postal Code: %F%
            Gender: %G%
        Birth Date: %H%
EndText:
Show: "~"
Clear:
Show: "Thank you for taking the time to answer this registration questionnaire!"
Show: ""
Get: "Press ANY KEY to continue ... ~" TYPE=HOTKEY VAR=Z
Change: A1=X-------
Clear:
Quit:
EndQ&A: